relu1(x) = If[x ≥ 0, x, 0]
w1 = -0.7 (slider from -5 to 5)
b1 = 2.9 (slider from -5 to 5)
n1(x) = (w1 * x) + b1
lag1(x) = relu1(n1(x))
w2 = -1.4 (slider from -5 to 5)
b2 = 2.5 (slider from -5 to 5)
n2(x) = (w2 * x) + b2
samletoutput(x) = relu1(n2(relu1(n1(x))))
lag2(x) = relu1(n2(x))
f: y = x
t = 3.45 (slider from -5 to 5, step 0.01)
A = Intersect(xAxis, (t, 0))
g = OrthogonalLine(A, xAxis)
B = Intersect(n1, g)
h = OrthogonalLine(B, g)
C = Intersect(relu1, h, (0.4849999999999999, 0.4849999999999999))
i = OrthogonalLine(C, h)
D = Intersect(n2, i)
j = OrthogonalLine(D, i)
E = Intersect(relu1, j, (1.8210000000000002, 1.8210000000000002))
k = Segment(A, B)
l = Segment(B, C)
m = Segment(C, D)
n = Segment(D, E)
p = Segment(A, B)
q = Segment(B, A)